home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / scm / with-input.scm < prev   
Encoding:
Text File  |  1993-08-18  |  427 b   |  12 lines

  1. (define (with-output s p)
  2.         (letrec ((o (fluid output-port))
  3.                  (f (open-port s "w" -1))
  4.                  (e (lambda () (close-output-port f)
  5.                                (set! (fluid output-port) o))))
  6.              (set! (fluid output-port) f)
  7.              (call-on-reset e)
  8.              (p)
  9.              (close-output-port f)
  10.              (set! (fluid output-port) o)
  11.              (uncall-on-reset e)))
  12.